60000 READN:IFN<0THEN:(null) 35:END
60010 FORX=1TO400:NEXT:DATA -1
60020 K$=RIGHT$(STR$(N+1000),3)
60030 J$=MID$(K$,1,3)
60040 IFVAL(J$)=0THEN:(null) 0:GOTO60000
60050 J$=MID$(K$,1,1)
60060 IF VAL(J$)=0 THEN 60080
60070 N=VAL(J$):(null) N:(null) 28
60080 J$=MID$(K$,2,1)
60090 IF VAL(J$)=0 THEN 60140
60100 J$=MID$(K$,2,2)
60110 IF VAL(J$)>20 THEN 60130
60120 N=VAL(J$):(null) N:GOTO60000
60130 J$=MID$(K$,2,1):(null) VAL(J$)+18
60140 J$=MID$(K$,3,1)
60150 IF VAL(J$)=0THEN GOTO60000
60160 N=VAL(J$):(null) N:GOTO 60000